Estos son algunos lugares que yo considero que son maravillosos y se encuentran a lo largo de México, cada uno de ellos tiene actividades divertidas y diferentes para los gustos de todas las personas. No te los puedes perder!!! Son lugares en los que puedes hacer actividades nuevas y aprender sobre la historía de México.
---
title: "Lugares que tienes que visitar en México"
author: "Carcaño Garcia Estefania"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
favicon: escudo.jpg
logo: escudo.jpg
fig_mobile: TRUE
theme: cosmo
social: menu
source_code: embed
navbar:
- {title: "Crea tu propio mapa", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
- {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---
```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```
Mapa {data-icon="fa-map"}
=====================================
Row
-----------------------------------------------------------------------
### Lugares que debes visitar
```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Bahía de las banderas, Sayulita", Giro = "Surf", longitud = -105.48, latitud = 20.75)
lugar2 <- c(Nombre = "Los Cabos ", Giro = "Avistamiento de ballenas", longitud = -109.70, latitud = 23.05)
lugar3 <- c(Nombre = "Islas Mujeres", Giro = "Buceo", longitud = -86.73, latitud = 21.2)
lugar4 <- c(Nombre = "Chichén Itzá", Giro = "Arqueología", longitud = -88.56, latitud = 20.68)
lugar5 <- c(Nombre = "Teotihuacán", Giro = "Arqueología", longitud = -98.87, latitud = 19.68)
lugar6 <- c(Nombre = "Mazatlán", Giro = "Descanso", longitud = -106.4, latitud = 23.2)
### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))
### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)
### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro))
### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))
### Imprimimos el mapa
mapa
```
Row
-----------------------------------------------------------------------
### Descripción del mapa
Estos son algunos lugares que yo considero que son maravillosos y se encuentran a lo largo de México, cada uno de ellos tiene actividades divertidas y diferentes para los gustos de todas las personas.
No te los puedes perder!!!
Son lugares en los que puedes hacer actividades nuevas y aprender sobre la historía de México.
{heigth="150"}
Row
-----------------------------------------------------------------------